unit dlgAddPad ;

interface

uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls,
   TntStdCtrls,
   SpTBXEditors,
   SpTBXControls,
   TBXDkPanels,
   uBasic,
   uObjects ;

type
   TMedaObjectDialog = class( TForm )
      SpTBXPanel1 : TSpTBXPanel ;
      btnOK : TSpTBXButton ;
      btnCancel : TSpTBXButton ;
      SpTBXGroupBox5 : TSpTBXGroupBox ;
      seSizeX : TSpTBXSpinEdit ;
      seSizeY : TSpTBXSpinEdit ;
      rgType : TSpTBXRadioGroup ;
      rgOrient : TSpTBXRadioGroup ;
      rgLayer : TSpTBXRadioGroup ;
   private
      fPad : TMedaPad ;
      procedure SetPad( const Value : TMedaPad ) ;
   public
      property Pad : TMedaPad write SetPad ;
   end ;

implementation

{$R *.dfm}

{ TMedaObjectDialog }

procedure TMedaObjectDialog.SetPad( const Value : TMedaPad ) ;
begin
   fPad := Value ;
end ;

end.

